home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / fraction / sfcdmath.inf < prev   
INI File  |  1996-04-02  |  22KB  |  721 lines
  1. ;; INSTALIT SCRIPT FOR MATHOLOGY
  2.  
  3. DefineVariables
  4. Text [CompanyName] := Veenetronics Corporation
  5. Text [ProductName] := MATH Assault II: Fractions
  6. Logical [OfferInstallationDirectoryChoice] := YesCharacter
  7. Directory [DefaultInstallationDirectory] := FRACTION
  8. Text [ModifyMode] := UNDECIDED
  9. Number [MinimumFilesSetting] := 20  ;;CHANGE THIS AFTER TESTING!!!!!!!!!
  10. Number [MinimumBuffersSetting] := 15
  11. Directory [ReadmeFileName] := Read.Me
  12. Logical [InquireAboutSystemFileLocation] := YesCharacter
  13. Logical [AskBeforeFileReplacement] := YesCharacter
  14. Text [ExitMessage] := Thanks!
  15. Directory [ProgramToRun] :=
  16. Logical [AddInstallDirectoryToPath] := YesCharacter
  17. Text [MinimumOSVersion] := 2
  18. Number [MinimumSystemMemoryRequiredPresent] := 640
  19. Logical [AllowCGA] := NoCharacter
  20. Logical [AllowMDA] := YesCharacter
  21. Logical [Allow808x] := YesCharacter
  22. Logical [Allow80286] := YesCharacter
  23. Logical [MathCoprocessorRecommended] := NoCharacter
  24. Logical [FixedDiskRequired] := YesCharacter
  25. Text [NetWorkInstallation] := AllowNetwork
  26. Logical [UseShadows] := YesCharacter
  27. Text [MainBorder] := NONE
  28. Text [PopupBorder] := SINGLE
  29. Text [TopLine] := "  INSTALLING [ProductName]  "
  30. Text [TopLineColors] := WhiteOnBrown
  31. Text [BottomLineColors] := WhiteOnLightGray
  32. Text [PopupColors] := WhiteOnCyan
  33. Text [AttentionColors] := WhiteOnRed
  34. Text [SpecialPopupColors] := WhiteOnBrown
  35. Text [ExpressSetupDescription] := Install [ProductName]
  36. Text [Speechchoice] := 'Choose the sound device installed in your computer
  37. Logical [NeedToTerminate] := NoCharacter
  38. Logical [Installed] := NoCharacter
  39. Text [DisplayAdapterSummary] :=
  40. Text [CPUTypeSummary] :=
  41. Text [NetworkActive] :=
  42. Text [MathCoprocessorStatus] :=
  43. Text [InstallationDriveSummary] := c:\
  44. Text [OSVersionSummary] := 2
  45. Text [SystemMemorySummary] :=
  46. Logical [InsufficientSystem] := NoCharacter
  47. Logical [CompatibilityNoticeGiven] := NoCharacter
  48. Logical [NeedToModify] := NoCharacter
  49. Text [PathTask] :=
  50. Text [BuffersTask] :=
  51. Text [FilesTask] :=
  52. Text [BackgroundCharacter] := BO
  53. Text [ScreenColors] := WhiteOnBlue
  54. Text [BottomLine] := "   <F1> Help    <F2> Visit DOS   <F3> System Summary   <F9> to Quit    "
  55. Number [systemmemory] :=
  56. number [freeconventionalmemory] :=
  57. number [freeEMSavailable] :=
  58. number [freeXMSavailable] :=
  59. Number [freeEMSmemory] :=
  60. Number [freeXMSmemory] :=
  61. Number [Size] := 6150000
  62. text [soundcard] :=
  63. text [soundcardext] :=
  64. text [speechengine] :=
  65. text [speechengineext] :=
  66. text [remove] :=
  67. text [nosound] :=
  68. text [speechext] :=
  69. text [soundcard2] :=
  70. text [soundcard2ext] :=
  71. text [soundcard3] :=
  72. text [soundcard3ext] :=
  73. text [fcave] :=
  74. text [flight] :=
  75. text [dict] :=
  76. text [V4ENGH] :=
  77. text [V4ENGR] :=
  78. text [V4ENG11kD] :=
  79. text [V4ENG11kI] :=
  80. text [V4ENG11KP] :=
  81. text [installationDrive&Directory] :=
  82. text [linevariables] :=
  83. ;;Logical [fixSoundAutoexec] := NoCharacter
  84. ;;Logical [fixBlasterAutoexec] := NoCharacter
  85.  
  86. EndDefineVariables
  87.  
  88. ClearScreen
  89. If Windows  ;; INSTALIT for Windows does not currently support ScriptView
  90. Popup This script was not designed for INSTALIT for Windows.
  91. else  ;; by default ScriptView is off
  92.   LetButton <F1> Do ShowHelpInfo
  93.   LetButton <F2> Do VisitOS
  94.   LetButton <F3> Do ShowSystemSummary
  95.   LetButton <F9> Do ExitInstallation
  96.  
  97. Dialog 2000 @xy(Center,Center)
  98.   Math Assault II: Fractions
  99.   copyright 1996 VeeneTronics Corp.
  100. Enddialog
  101.  
  102. Clearscreen
  103.  
  104. TextBox @xy(Center,4)
  105.   Thanks for trying [ProductName].
  106. EndTextBox
  107.  
  108. [installationDirectory] := c:\[DefaultInstallationDirectory];; needed to initialize
  109.  
  110. if VGA = NoCharacter .and. MCGA = NoCharacter
  111.   popup Sorry, this program runs only on a VGA or an MCGA monitor and computer.
  112.   do exitinstallation
  113. endif
  114.  
  115. [systemmemory] := mainmemory * 1000
  116. [freeconventionalmemory] := freerunmemory + 370000   ;;370000 represents the fudge factor
  117. [freeEMSavailable] := expandedmemorypagesactive * 16000
  118. [freeXMSavailable] := extendedmemoryavailable * 1000
  119. [freeEMSmemory] := expandedmemorypagesavaailablefunction
  120. [freeEMSmemory] := [freeEMSmemory] * 16000
  121. [freeXMSmemory] := extendedmemorypresent * 1000
  122.  
  123.  
  124. if [systemMemory] < 579000
  125.   popup Sorry, this program requires 640 kilobytes of conventional memory to run.  This machine only has [systemmemory].
  126.   do exitinstallation
  127. endif
  128.  
  129. if [freeconventionalmemory] < 512000
  130.   ClearScreen
  131.   Dialog [YesOrNo1] WhiteOnRed
  132.     This program requires 512000 bytes of conventional memory.  Your computer
  133.     has only [freeconventionalmemory] bytes.  You must unload system drivers
  134.     and other resident programs to free some more memory.  Do you wish to continue with the installation?
  135.   EndDialog
  136.   if [YesorNo1] = NoCharacter
  137.     do exitinstallation
  138.   endif
  139. endif
  140.  
  141. ;;[string3] := a
  142. ;;while [string3] < z
  143.   ;;if driveispresent [string3]
  144. ;;    if driveisCdROM [string3]
  145. ;;      [CDRomdrive] := [string3]
  146. ;;      [string3] := y   ;;inc next to z
  147. ;;    endif
  148.   ;;endif
  149. ;;  incrementstring [string3]
  150. ;;endwhile
  151.  
  152.  
  153. if (ExpandedMemoryPagesActive > 0) .or. (ExtendedMemoryPresent > 0)
  154.   Dialog [YesOrNo1] [SpecialPopupColors]  ;; Use speech
  155.     Would you like to use speech?
  156.   EndDialog
  157.   If [YesOrNo1] = YesCharacter
  158.     [linevariables] := [linevariables] /A     ;;speech installed
  159.     [speechengine] := speech.exe
  160.     [speechengineext] := /e
  161.     [remove] := remove.exe
  162.     [nosound] := nosound.exe
  163.     [fcave] := fcave.dic
  164.     [fcave] := fcave.dic
  165.     [flight] := flight.dic
  166.     [dict] := dict.par
  167.     [V4ENGH] := V4ENG.HSH
  168.     [V4ENGR] := V4ENG.RUL
  169.     [V4ENG11kD] := V4ENG11K.DMI
  170.     [V4ENG11kI] := V4ENG11K.INS
  171.     [V4ENG11KP] := V4ENG11K.PCM
  172.     GetMenuChoice @xy(Center,10) UseHeader "SPEECH"
  173.       Sound Blaster
  174.       ;This includes Sound Blaster, Sound Blaster Pro, and Sound Blaster 16.
  175.       Standard Internal Speaker
  176.       ;No Sound Card installed.
  177.       Adlib
  178.       Covox Speech Thing or Hearsay 100
  179.       Echo Pc II
  180.       PS/1 DAC
  181.       Tandy Sound System
  182.       IBM Speech Card
  183.       Sound Commander from MediaSonic Inc.
  184.       Disney Sound Source
  185.       Digi Speech DS201-A
  186.       ;Note: Before running, the Digi Speech's driver must be loaded.
  187.       IBM ACPA
  188.       Media Vision
  189.       Finished
  190.       ;Exit this installer and return
  191.       ;to the operating system
  192.     EndGetMenuChoice
  193.  
  194.     ClearScreen
  195.  
  196.     InCase choice is
  197.       =1: ClearScreen
  198.           Dialog [YesOrNo1] WhiteOnRed
  199.             The default port setting for Sound Blaster is 220.
  200.             Older Sound Blaster IRQ is 7.  The default IRQ interrupt is 5.
  201.             Do you accept these?
  202.           EndDialog
  203.           if [YesorNo1] = YesCharacter
  204.             [soundcard] := soundBST.exe
  205.             [soundcardext] := /p220 /i5
  206.           else
  207.             Dialog [String1]
  208.                  Please enter the correct port: 210, 220, 230, 240, 250, or 260.
  209.                  Default is 220.
  210.             EndDialog
  211.                Dialog [String2]
  212.                  Please enter the correct IRQ (interrupt): 2, 3, 4, 5, 7, 10.
  213.                  Older version is 7.  Newer version is 5.
  214.                Enddialog
  215.                [soundcard] := soundBST.exe
  216.                [soundcardext] := /p[string1] /i[string2]
  217.            Endif
  218.       =2:  [soundcard] := LH soundPWM.exe
  219.       =3:  [soundcard] := LH soundADD.exe
  220.       =4:  [soundcard] := LH soundCVX.exe
  221.       =5:  [soundcard] := LH sounDEC2.exe
  222.       =6:  [soundcard] := LH soundPS1.exe
  223.       =7:  [soundcard] := LH soundTND.exe
  224.       =8:  [soundcard] := LH soundIBM.exe
  225.       =9:  [soundcard] := LH soundCMD.exe
  226.       =10: [soundcard] := LH soundDIN.exe
  227.       =11: [soundcard] := LH soundDIG.exe
  228.       =12: [soundcard] := LH soundACP.exe
  229.       =13:  [soundcard] := LH SoundMV3.exe
  230.       =14: Do ExitInstallation
  231.     EndInCase
  232.     if [soundcard] = LH soundACP
  233.       [soundcard2] := Int4dApi
  234.       [soundcard2ext] := /N
  235.       [soundcard3] := Int4dApi
  236.       [soundcard3ext] := /R
  237.     endif
  238.   Endif
  239. Endif
  240.  
  241. ClearScreen
  242.  
  243. Dialog [YesOrNo1] [SpecialPopupColors]  ;; Calculator available
  244.     Make the calculator available for use?
  245.   EndDialog
  246.   If [YesOrNo1] = NoCharacter
  247.     [linevariables] := [linevariables] /C
  248.   else
  249.     Dialog [YesOrNo1] [SpecialPopupColors]  ;;  Fraction calculator available
  250.       Allow the calculator to do fractions?
  251.       The calculator can work as a regular calculator and as a fraction
  252.       calculator.  It is recomended that you "not" allow players to use
  253.       the calculator as a fraction calculator.
  254.       Use the fraction calculator?
  255.     EndDialog
  256.     If [YesOrNo1] = NoCharacter
  257.       [linevariables] := [linevariables] /I
  258.     EndIf
  259.   EndIf
  260.  
  261. clearscreen
  262.  
  263. Dialog [YesOrNo1] [SpecialPopupColors]  ;; Check for Deleting names
  264.   Would you like to prohibit players from deleting other players' names from
  265.   memory?  If you choose "yes", the only way to delete names is by using the
  266.   name "teacher".  If you choose "no", anyone can delete any names from memory.
  267. EndDialog
  268.   If [YesOrNo1] = YesCharacter
  269.     [linevariables] := [linevariables] /D
  270.   EndIf
  271.  
  272. clearscreen
  273.  
  274. Dialog [YesOrNo1] [SpecialPopupColors]  ;; Check for turning sound off
  275.   Start with the music ON?
  276. EndDialog
  277. If [YesOrNo1] = NoCharacter
  278.     [linevariables] := [linevariables] /M
  279. EndIf
  280.  
  281. clearscreen
  282.  
  283. Dialog [YesOrNo1] [SpecialPopupColors]  ;; Check review problems
  284.   Require players to take a review test?
  285.   Many players need more practice doing fraction problems after they
  286.   finish a level.  Therefore a review practice test has been added
  287.   after each level, and a percentage score is included in the print out.
  288.   Would you like to require players to take a review test?
  289. EndDialog
  290. If [YesOrNo1] = YesCharacter
  291.     [linevariables] := [linevariables] /B
  292. EndIf
  293.  
  294. If [AskBeforeFileReplacement] = NoCharacter
  295.   SetReplacementInquiry Off
  296. EndIf
  297.  
  298. Do SetupInstalit
  299. Do PrepareSystemReport
  300.  
  301. :Again
  302. GetMenuChoice @xy(Center,10) UseHeader "MAIN MENU"
  303.   Install
  304.     ;[ExpressSetupDescription]
  305.   Get a New Copy of a File
  306.     ;Get a replacement copy of a file
  307.   Finished
  308.     ;Exit this installer and return
  309.     ;to the operating system
  310. EndGetMenuChoice
  311.  
  312. ClearScreen
  313.  
  314. InCase choice is
  315.  
  316.   =1:  Do QueSelectedFiles  ;;QueAllFiles
  317.   =2:  Do GetNewCopyOfFile
  318.        GoTo Continue
  319.   =3:  Do ExitInstallation
  320. EndInCase
  321.  
  322. If QueSize = 0
  323.   GoTo Continue
  324. EndIf
  325.  
  326. DetermineInstallationDrive RequireFixed [size];;quesize
  327.  
  328. [installationDirectory] := InstallationDrive:\[DefaultInstallationDirectory];;default value
  329.  
  330. DetermineInstallationDirectory RequireFixed [Size];;quesize installationdirectory now has real value
  331.  
  332. ;;VerifyCorrectMedia [installfromdrive] volumeLabel=FRACTION
  333.  
  334. GetQuedFiles ShowJustOne    ;;[ExtractionOptions]
  335. [Installed] := YesCharacter
  336. If QueSize <> 0  ;; Some files were selected but not installed if <> 0
  337.   [Installed] := NoCharacter
  338.   UnqueAllFiles  ;; Remove uninstalled files from que
  339.   Dialog ;; Message when unable to get all necessary files
  340.     Unable to successfully complete this option.
  341.   EndDialog
  342. EndIf
  343. :Continue
  344. do Exitinstallation
  345.  
  346. Procedure ShowHelpInfo
  347. Dialog PressAKey [SpecialPopupColors]  ;; How to reach technical support
  348. For online assistance and registration send $15.00 to:
  349.  
  350.     Veenetronics Corporation
  351.     3231 Cumberland Trail
  352.     Olympia Fields, Il 60461
  353.  
  354. You are installing
  355. [ProductName].
  356.  
  357. You can get a summary of your computer system
  358. by pressing <F3>.  This information will be
  359. important should you call Customer Service.
  360. EndDialog
  361. EndProcedure
  362.  
  363. Procedure ShowSystemSummary  ;; System summary - change with care.
  364.   If [InstallationDirectory] <> BlankString
  365.     [InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
  366.   else
  367.     [InstallationDriveSummary] := (Not Selected)
  368.   EndIf
  369.   Dialog PressAKey [SpecialPopupColors]
  370.     .cHERE IS A SUMMARY OF YOUR SYSTEM
  371.     .c[String8]  ;; notes whether any incompatibilities were found
  372.  
  373.     Operating System Version:  [OSVersionSummary]
  374.     CPU Type:  [CPUTypeSummary]
  375.     Display Adapter:  [DisplayAdapterSummary]
  376.     Math Coprocessor:  [MathCoprocessorStatus]
  377.     Main Memory Present:  [SystemMemorySummary]
  378.     Extended Memory Present:  ExtendedMemoryPresentK
  379.     XMS Memory Available:  XMSMemoryAvailableK
  380.     Installation Drive:  [InstallationDriveSummary]
  381.     Network:  [NetworkActive]
  382.     [String9]  ;; information about network suitability
  383.   EndDialog
  384. EndProcedure
  385.  
  386. Procedure QueSelectedFiles
  387.   QueFiles
  388.     ft.*
  389.     fraction.doc
  390.     *.txc
  391.     *.gxl
  392.     [speechengine]
  393.     [soundcard]
  394.     [remove]
  395.     [nosound]
  396.     [fcave]
  397.     [flight]
  398.     [dict]
  399.     [V4ENGH]
  400.     [V4ENGR]
  401.     [V4ENG11kD]
  402.     [V4ENG11kI]
  403.     [V4ENG11KP]
  404.     read.me
  405.   EndQuefiles
  406.  
  407. EndProcedure
  408.  
  409. Procedure PrepareSystemReport
  410.   [InsufficientSystem] := NoCharacter
  411.   If OSVersion < [MinimumOSVersion]
  412.     [OSVersionSummary] := OSVersion (need at least [MinimumOSVersion])
  413.     [InsufficientSystem] := YesCharacter
  414.   else
  415.     [OSVersionSummary] := OSVersion
  416.   EndIf
  417.   If MainMemory < [MinimumSystemMemoryRequiredPresent]
  418.     [SystemMemorySummary] := MainMemoryK (need at least [MinimumSystemMemoryRequiredPresent]K)
  419.     [InsufficientSystem] := YesCharacter
  420.   else
  421.     [SystemMemorySummary] := MainMemoryK
  422.   EndIf
  423.   If 808X
  424.     If [Allow808X] = YesCharacter
  425.       [CPUTypeSummary] := 808x
  426.     else
  427.       [CPUTypeSummary] := 808x (not compatible with [ProductName])
  428.       [InsufficientSystem] := YesCharacter
  429.     EndIf
  430.   EndIf
  431.   If 80286
  432.     [CPUTypeSummary] := 80286
  433.   EndIf
  434.   If 80386
  435.     [CPUTypeSummary] := 80386
  436.   EndIf
  437.   If 80486
  438.     [CPUTypeSummary] := 80486
  439.   EndIf
  440.   If [CPUTypeSummary] = BlankString
  441.     [CPUTypeSummary] := 808x
  442.   EndIf
  443.   If MicroChannel
  444.     [CPUTypeSummary] := [CPUTypeSummary] (in MicroChannel Architecture)
  445.   else
  446.     [CPUTypeSummary] := [CPUTypeSummary] (ISA or EISA Architecture)
  447.   EndIf
  448.   If CGA
  449.     If [AllowCGA] = YesCharacter
  450.       [DisplayAdapterSummary] := CGA
  451.     else
  452.       [DisplayAdapterSummary] := CGA (not compatible with [ProductName])
  453.       [InsufficientSystem] := YesCharacter
  454.     EndIf
  455.   EndIf
  456.   If MDA
  457.     If [AllowMDA] = YesCharacter
  458.       [DisplayAdapterSummary] := MDA
  459.     else
  460.       [DisplayAdapterSummary] := MDA (not compatible with [ProductName])
  461.       [InsufficientSystem] := YesCharacter
  462.     EndIf
  463.   EndIf
  464.   If EGA
  465.     [DisplayAdapterSummary] := EGA
  466.   EndIf
  467.   If VGA
  468.     [DisplayAdapterSummary] := VGA
  469.   EndIf
  470.   If HGC
  471.     [DisplayAdapterSummary] := HGC
  472.   EndIf
  473.   If HGCPlus
  474.     [DisplayAdapterSummary] := HGC Plus
  475.   EndIf
  476.   If Network
  477.     [NetworkActive] := Network Active
  478.   else
  479.     [NetworkActive] := No Network Active
  480.   EndIf
  481.   If NovellLoaded
  482.     [NetworkActive] := Novell [NetworkActive]
  483.   EndIf
  484.   If MathCoprocessorPresent
  485.     [MathCoprocessorStatus] := Present
  486.   else
  487.     If [MathCoprocessorRecommended] = YesCharacter
  488.       [MathCoprocessorStatus] := Not Present But Recommended
  489.       If [CompatibilityNoticeGiven] = YesCharacter
  490.       else
  491.         Dialog  ;; Notice if math coprocessor recommended
  492.           [ProductName] needs a math coprocessor
  493.           for best performance.  Your system does not
  494.           contain one.
  495.         EndDialog
  496.       EndIf
  497.     else
  498.       [MathCoprocessorStatus] := Not Present
  499.     EndIf
  500.   EndIf
  501.  
  502.   If [InsufficientSystem] = YesCharacter
  503.     [String8] := (Please note the listed incompatibilities)
  504.   EndIf
  505.   If [NetworkInstallation] contains DisallowNetwork
  506.     [String9] := "   (You cannot install this version on a network drive)"
  507.   EndIf
  508.   [CompatibilityNoticeGiven] := YesCharacter
  509. EndProcedure
  510.  
  511.  
  512. Procedure GetNewCopyOfFile
  513. :StartOver
  514. determineinstallationdrive requirefixed showadequatedrives
  515. [installationDirectory] := installationDrive:\[DefaultinstallationDirectory]
  516. determineinstallationdirectory quesize requirefixed ;;size
  517. Dialog [String4] 12 UseHeader "Getting a single file" UpperCase
  518.   Please enter the name of the file
  519.   you need a new copy of or leave
  520.   blank to exit.
  521. EndDialog
  522. If [String4] = BlankString
  523.   Exit
  524. EndIf
  525. If [String4] contains \
  526.   Popup Please enter just the file name with no path.
  527.   GoTo StartOver
  528. EndIf
  529. If FileIsInLibrary [String4]
  530. else
  531.   Popup Cannot find a file named [String4].
  532.   GoTo StartOver
  533. EndIf
  534. QueFiles
  535.   [String4]
  536. EndQueFiles
  537. GetQuedFiles ShowJustOne   ;;[ExtractionOptions]
  538. EndProcedure
  539.  
  540.  
  541. Procedure VisitOS
  542.   Dialog [YesOrNo1] [SpecialPopupColors]  ;; Notice before exiting to OS
  543.     Do you wish to exit to the operating system and
  544.     then return?
  545.   EndDialog
  546.   If [YesOrNo1] = YesCharacter
  547.     ExitToDOS
  548.   EndIf
  549. EndProcedure
  550.  
  551.  
  552. Procedure ExitInstallation
  553. ClearScreen
  554. If [Installed] = YesCharacter
  555.  
  556.   [number2] := lengthof [installationdirectory]
  557.   [string1] := substringof [installationdirectory] from 4 to [number2]
  558.  
  559.   [linevariables] := [linevariables] %1 %2 %3 %4 %5
  560.  
  561.   ;; Create special config file to hold drive and directory
  562. ;;  createfile [Installationdirectory]\fconfig.txt  ;;insures old file is erased
  563. ;;  appendfile [InstallationDirectory]\fconfig.txt
  564. ;;    [InstallationDirectory]\
  565. ;;  endappendfile
  566.  
  567.  
  568.   createfile [Installationdirectory]\fract.bat  ;;insures old file is erased
  569.   appendfile [InstallationDirectory]\fract.bat
  570.     @echo off
  571.     InstallationDRIVE:
  572.     cd\[string1]
  573.     [soundcard2] [soundcard2ext]
  574.     [soundcard] [soundcardext]
  575.     [speechengine] [speechengineext]
  576.     [InstallationDirectory]\ft[linevariables] ;;/L[InstallationDirectory]\;;[speechext][calculator][deletenames][musicoff] %1 %2 %3 %4 %5
  577.     @echo off
  578.     [remove]
  579.     [nosound]
  580.     [soundcard3] [soundcard3ext]
  581.     InstallationDRIVE:\
  582.   endappendfile
  583.   openCopyWindow
  584. ;;  popup [installFromDirectory] [installationDirectory]
  585.   if [installFromDirectory] <> [installationDirectory]\
  586.     CopyFiles from [installFromDirectory] to [installationDirectory]
  587.       *.gxl
  588.       order.frm
  589.     EndCopyfiles
  590.   endif
  591.   closeCopyWindow
  592.  
  593.   [Number1] := [MinimumBuffersSetting] + [MinimumFilesSetting]
  594.   If [MinimumFilesSetting] < 20
  595.     popup In config.sys set FILES=[minimumFilesSetting] at a minimum
  596.   Endif
  597.   If [MinimumBuffersSetting] < 10
  598.     popup In config.sys set BUFFERS=[minimumBuffersSetting] at a minimum
  599.   EndIf
  600.  
  601.   if [speechengine] = speech.exe
  602.     Dialog
  603.       If the program doesn't work, check the memory requirements in Read.Me
  604.       or Fraction.doc.  Also remove any conflicting TSR's.  If the program
  605.       still doesn't work, reinstall without speech.
  606.     EndDialog
  607.   EndIf
  608.  
  609.  
  610. ;;  if [fixBlasterAutoExec] = YesCharacter
  611. ;;    popup In Autoexec.bat add: "Set Blaster=A220 I7 D1 T1" at beginning
  612. ;;    ModifyAutoexecbat
  613. ;;      AddorChangeLineWith (blaster,,) as "Set Blaster=A220 I7 D1 T1" at beginning
  614. ;;    EndModifyAutoexecBat
  615. ;;  endif
  616.  
  617. ;;  ModifyAutoexecBat
  618. ;;    AddPathComponent [InstallationDirectory] at End  ;; or "at Beginning"
  619. ;;  EndModifyAutoexecBat
  620.  
  621.  
  622. ;;  If BootFilesModified
  623. ;;  else
  624. ;;    Dialog
  625. ;;      No changes were necessary to AUTOEXEC.BAT or CONFIG.SYS.
  626. ;;    EndDialog
  627. ;;  EndIf
  628.  
  629. EndIf
  630.  
  631. EndIf
  632. If [ProgramToRun] <> BlankString
  633.   Dialog [YesOrNo1]  ;; Explains purpose of program to be run, if any
  634.     [ProgramToRun] does <insert purpose here>.
  635.     Do you wish to run it now?
  636.   EndDialog
  637.   If [YesOrNo1] = YesCharacter
  638.     Run [ProgramToRun] SwapOut
  639.     If OSErrorCode <> 0
  640.       Dialog  ;; Message if OS unable to Run program
  641.         Unable to run [ProgramToRun].
  642.         Error code was OSErrorCode.
  643.       EndDialog
  644.     else
  645.       If OSExitCode <> 0
  646.         Dialog ;; Message if program ran but returned non-zero code
  647.           [ProgramToRun] executed but was not successful.
  648.           Return code OSExitCode.
  649.         EndDialog
  650.       EndIf
  651.     EndIf
  652.   EndIf
  653. EndIf
  654.  
  655. Clearscreen
  656. If [ReadmeFileName] <> BlankString
  657.   ChangeDirectoryTo [InstallationDirectory]  ;;InstallationDrive
  658.   Dialog [YesOrNo1] ;; Ask whether to browse readme file, if any
  659.     [ReadmeFileName] contains important information.
  660.     Do you wish to read it now?
  661.   EndDialog
  662.   If [YesOrNo1] = YesCharacter
  663.     If FileExists [ReadmeFileName]
  664.       BrowseFile [ReadmeFileName]
  665.     else
  666.       Popup Sorry, read.me file [ReadMeFileName] is missing.
  667.     EndIf
  668.   EndIf
  669. EndIf
  670. Dialog
  671.   To begin the program, type fract
  672. endDialog
  673. Dialog ;; Final Farewell
  674.   Thanks for using [ProductName]!
  675.   If you find this product useful, please
  676.   register or consider an upgrade with more features.
  677. EndDialog
  678. SoLong
  679. EndProcedure
  680.  
  681. Procedure SetupInstalit
  682.   SetScreenAttrTo [ScreenColors]
  683.   SetBackgroundCharTo B1  ;;[BackgroundCharacter]
  684.   Do PrepareSystemReport
  685.   If [UseShadows] = YesCharacter
  686.     SetShadows On
  687.   else
  688.     SetShadows Off
  689.   EndIf
  690.   If [InquireAboutSystemFileLocation] = NoCharacter
  691.     NoSysFileConfirmation
  692.   EndIf
  693.   SetMainBorderTo     [MainBorder]
  694.   SetPopupBorderTo    [PopupBorder]
  695.   SetModifyModeTo     UNdecided  ;;[ModifyMode]
  696.   SetShadowAttrTo     DarkGrayOnBlack
  697.   SetScreenAttrTo     [ScreenColors]
  698.   SetPopupAttrTo      [PopupColors]
  699.   SetAttentionAttrTo  [AttentionColors]
  700.   SetTopLineAttrTo    [TopLineColors]
  701.   SetBottomLineAttrTo [BottomLineColors]
  702.   SetBottomLineTo     "   <F1> Help    <F2> Visit DOS   <F3> System Summary   <F9> to Quit    "
  703.   SetTopLineTo        [TopLine]
  704.   SetExitMessageTo    [ExitMessage]
  705.   SetAllowExit        Off
  706. EndProcedure
  707.  
  708. If Windows
  709.   SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  710. EndIf
  711. Dialog
  712.   Let's do the <product name> installation.
  713. EndDialog
  714.  
  715. QueAllFiles
  716. GetQuedFiles
  717.  
  718. Dialog
  719.   Thanks for your business!
  720. EndDialog
  721.